home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / S-Sh / SD Gradebook.cpt / SuperDuper Gradebook 1.25 / stack_-1.xml < prev    next >
Extensible Markup Language  |  1988-07-21  |  8KB  |  16 lines
  1. <?xml version="1.0" encoding="utf-8" ?>
  2. <!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
  3. <stack>
  4.     <name>in.25</name>
  5.     <id>-1</id>
  6.     <cardCount>13</cardCount>
  7.     <cardID>3071</cardID>
  8.     <listID>7927</listID>
  9.     <cantModify><false /></cantModify>
  10.     <cantDelete><false /></cantDelete>
  11.     <cantAbort><false /></cantAbort>
  12.     <cardSize>
  13.         <width>512</width>
  14.         <height>342</height>
  15.     </cardSize>
  16.     <script>SuperDuper Gradebook Stack isCopyright ¬© 1988 by Bangs L. TapscottAll Rights Reserved****************************************************************                                                             **                 Another Fine Product                        **                         from                                **                  Fleurs du Mac Software                     **                                                             ****************************************************************Thanks & acknowledgement to Guy de Picciotto, author of thepublic domain XCMD "CopyFile" used in this stack.on startUpgetHomeInfopass startUp -- to a startUp XCMD, if presentend startUpon resumegetHomeInfopass resume -- to a resume XCMD, if presentend resumeon getHomeInfoglobal stacks,applications,documents,userNameset lockScreen to trueset lockMessages to truepush this cardgo to card "User Preferences" of stack "Home"put card field "User Name" into userNameset userLevel to card field "User Level"set powerKeys to the hilite of button "Power Keys"set blindTyping to the hilite of button "Blind Typing"put field "paths" of card "stacks" into stacksput field "paths" of card "applications" into applicationsput field "paths" of card "documents" into documentspop cardset lockScreen to falseset lockMessages to falseend getHomeInfoon openstackglobal Gradebookname,dupingput false into dupingset userlevel to 2choose browse toolhide menubarhide card button "make copy" of card 1hide card field "message" of card 1hide card field "first info" of card 1get the short name of this stackgo card 1put it into card field "coursename"set the lockscreen to truego card "global stash"send "mouseup" to bkgnd button "restore globals"--gets stored values from array, puts them into globalsgo card 1set the lockscreen to falseend openstackon closestackglobal dupinggo card 1set the lockscreen to truego card "global stash"send "mouseup" to bkgnd button "store globals"--stashes values of globals in array (field), for later usego card 1set the lockscreen to falseif not duping then --we're not duplicating the original stackif the freeSize of this stack >= 15000 thenanswer "Stack has "& round(the freeSize of this stack/1024)¬¨&"k free; Compact?" with "NO" or "OK"if it is "OK" thenset userlevel to 3domenu "Compact Stack"set userlevel to 2end ifend ifend ifend closestackfunction minorGradeOf intake--calculates letter grades from entered SCORESglobal mAplus,mA,mAminus,mBplus,mB,mBminus,mCplus,mC,mCminusglobal mDplus,mD,mDminusif mAplus<>empty and intake >= mAplus thenreturn "A+"exit minorGradeOfelse if mA <> empty and intake >= mA thenreturn "A"exit minorGradeOfelse if mAminus<>empty and intake >= mAminus thenreturn "A-"exit minorGradeOfelse if mBplus<>empty and intake >= mBplus thenreturn "B+"exit minorGradeOfelse if mB<>empty and intake >= mB thenreturn "B"exit minorGradeOfelse if mBminus<>empty and intake >= mBminus thenreturn "B-"exit minorGradeOfelse if mCplus<>empty and intake >= mCplus thenreturn "C+"exit minorGradeOfelse if mC<>empty and intake >= mC thenreturn "C"exit minorGradeOfelse if mCminus<>empty and intake >= mCminus thenreturn "C-"exit minorGradeOfelse if mDplus<>empty and intake >= mDplus thenreturn "D+"exit minorGradeOfelse if mD<>empty and intake >= mD thenreturn "D"exit minorGradeOfelse if mDminus<>empty and intake >= mDminus thenreturn "D-"exit minorGradeOfelsereturn "E"end ifend minorGradeOffunction examGradeOf intake--calculates grade from entered SCOREglobal eAplus,eA,eAminus,eBplus,eB,eBminus,eCplus,eC,eCminusglobal eDplus,eD,eDminusif eAplus<>empty and intake >= eAplus thenreturn "A+"exit examGradeOfelse if eA <> empty and intake >= eA thenreturn "A"exit examGradeOfelse if eAminus<>empty and intake >= eAminus thenreturn "A-"exit examGradeOfelse if eBplus<>empty and intake >= eBplus thenreturn "B+"exit examGradeOfelse if eB<>empty and intake >= eB thenreturn "B"exit examGradeOfelse if eBminus<>empty and intake >= eBminus thenreturn "B-"exit examGradeOfelse if eCplus<>empty and intake >= eCplus thenreturn "C+"exit examGradeOfelse if eC<>empty and intake >= eC thenreturn "C"exit examGradeOfelse if eCminus<>empty and intake >= eCminus thenreturn "C-"exit examGradeOfelse if eDplus<>empty and intake >= eDplus thenreturn "D+"exit examGradeOfelse if eD<>empty and intake >= eD thenreturn "D"exit examGradeOfelse if eDminus<>empty and intake >= eDminus thenreturn "D-"exit examGradeOfelsereturn "E"end ifend examGradeOffunction paperGradeOf intakeglobal pAplus,pA,pAminus,pBplus,pB,pBminus,pCplus,pC,pCminusglobal pDplus,pD,pDminusif pAplus<>empty and intake >= pAplus thenreturn "A+"exit paperGradeOfelse if pA <> empty and intake >= pA thenreturn "A"exit paperGradeOfelse if pAminus<>empty and intake >= pAminus thenreturn "A-"exit paperGradeOfelse if pBplus<>empty and intake >= pBplus thenreturn "B+"exit paperGradeOfelse if pB<>empty and intake >= pB thenreturn "B"exit paperGradeOfelse if pBminus<>empty and intake >= pBminus thenreturn "B-"exit paperGradeOfelse if pCplus<>empty and intake >= pCplus thenreturn "C+"exit paperGradeOfelse if pC<>empty and intake >= pC thenreturn "C"exit paperGradeOfelse if pCminus<>empty and intake >= pCminus thenreturn "C-"exit paperGradeOfelse if pDplus<>empty and intake >= pDplus thenreturn "D+"exit paperGradeOfelse if pD<>empty and intake >= pD thenreturn "D"exit paperGradeOfelse if pDminus<>empty and intake >= pDminus thenreturn "D-"exit paperGradeOfelsereturn "E"end ifend paperGradeOffunction finalGradeOf intakeglobal fAplus,fA,fAminus,fBplus,fB,fBminus,fCplus,fC,fCminusglobal fDplus,fD,fDminusif fAplus<>empty and intake >= fAplus thenreturn "A+"exit finalGradeOfelse if fA <> empty and intake >= fA thenreturn "A"exit finalGradeOfelse if fAminus<>empty and intake >= fAminus thenreturn "A-"exit finalGradeOfelse if fBplus<>empty and intake >= fBplus thenreturn "B+"exit finalGradeOfelse if fB<>empty and intake >= fB thenreturn "B"exit finalGradeOfelse if fBminus<>empty and intake >= fBminus thenreturn "B-"exit finalGradeOfelse if fCplus<>empty and intake >= fCplus thenreturn "C+"exit finalGradeOfelse if fC<>empty and intake >= fC thenreturn "C"exit finalGradeOfelse if fCminus<>empty and intake >= fCminus thenreturn "C-"exit finalGradeOfelse if fDplus<>empty and intake >= fDplus thenreturn "D+"exit finalGradeOfelse if fD<>empty and intake >= fD thenreturn "D"exit finalGradeOfelse if fDminus<>empty and intake >= fDminus thenreturn "D-"exit finalGradeOfelsereturn "E"end ifend finalGradeOffunction letterGradeOf mygradeif mygrade >= 11.5 thenreturn "A+"else if mygrade >= 10.5 and mygrade <= 11.49999 thenreturn "A"else if mygrade >= 9.5 and mygrade <= 10.49999 thenreturn "A-"else if mygrade >= 8.5 and mygrade <= 9.49999 thenreturn "B+"else if mygrade >= 7.5 and mygrade <= 8.49999 thenreturn "B"else if mygrade >= 6.5 and mygrade <= 7.49999 thenreturn "B-"else if mygrade >= 5.5 and mygrade <= 6.49999 thenreturn "C+"else if mygrade >= 4.5 and mygrade <= 5.49999 thenreturn "C